home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Lengths / Modify / l-add-up-range next >
Lisp/Scheme  |  1998-08-11  |  614b  |  24 lines
  1. l-add-up-range range pattern
  2.  
  3. 0-based 
  4.  
  5. This function enables the adding up of selected note-lengths by <range>.
  6.  
  7. (setq len1 (qlength '20-11011))
  8. (setq len2 (qlength '((20-11011) (24-1131) (16-13) (20-14))))
  9.  
  10. (l-add-up-range '(3 5) len1)
  11. => (1/20 1/20 -1/20 1/10)
  12.  
  13. In the example above, the <range> parameter is set to add up note-lengths between 3 and 5.
  14.  
  15. (setq range
  16.       (pick-rnd1 .56 :content 2
  17.                  (g-integer 0 (l-count :all :content len2))))
  18. => ((0 4) (4 2) (2 0) (1 0))
  19.  
  20. internally to: ((0 4) (2 4) (0 2) (0 1)) 
  21.  
  22. (l-add-up-range range len2)
  23. => ((1/10 1/20) (1/24 1/24 1/6) (1/4) (1/20 1/5))
  24.